home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / dev_libs / feelin040718 / demos / rasters.e < prev    next >
Encoding:
Text File  |  2004-08-03  |  2.5 KB  |  98 lines
  1. OPT PREPROCESS
  2.  
  3. MODULE 'feelin','libraries/feelin'
  4.  
  5. PROC main()
  6.    DEF app,win
  7.  
  8.    IF feelinbase := OpenLibrary('feelin.library',FV_VERSION)
  9.       app := AppObject,
  10.          Child, win := WindowObject,
  11.             FA_Window_Title,  'Feelin : Rasters',
  12.             FA_Window_Open,   TRUE,
  13.  
  14.             Child, VGroup, FA_Group_VSpacing, 0,
  15.                Child, HGroup, FA_Group_HSpacing, 0,
  16.                   Child, rast(FI_Highlight),
  17.                   Child, rast(FI_Shine_Highlight),
  18.                   Child, rast(FI_HalfShine_Highlight),
  19.                   Child, rast(FI_Fill_Highlight),
  20.                   Child, rast(FI_HalfShadow_Highlight),
  21.                   Child, rast(FI_Shadow_Highlight),
  22.                   Child, rast(FI_HalfDark_Highlight),
  23.                   Child, rast(FI_Dark_Highlight),
  24.                End,
  25.  
  26.                Child, HGroup, FA_Group_HSpacing, 0,
  27.                   Child, rast(FI_Shine),
  28.                   Child, rast(FI_Shine_HalfShine),
  29.                   Child, rast(FI_Shine_Fill),
  30.                   Child, rast(FI_Shine_HalfShadow),
  31.                   Child, rast(FI_Shine_Shadow),
  32.                   Child, rast(FI_Shine_HalfDark),
  33.                   Child, rast(FI_Shine_Dark),
  34.                End,
  35.  
  36.                Child, HGroup, FA_Group_HSpacing, 0,
  37.                   Child, rast(FI_HalfShine),
  38.                   Child, rast(FI_HalfShine_Fill),
  39.                   Child, rast(FI_HalfShine_HalfShadow),
  40.                   Child, rast(FI_HalfShine_Shadow),
  41.                   Child, rast(FI_HalfShine_HalfDark),
  42.                   Child, rast(FI_HalfShine_Dark),
  43.                End,
  44.  
  45.                Child, HGroup, FA_Group_HSpacing, 0,
  46.                   Child, rast(FI_Fill),
  47.                   Child, rast(FI_Fill_HalfShadow),
  48.                   Child, rast(FI_Fill_Shadow),
  49.                   Child, rast(FI_Fill_HalfDark),
  50.                   Child, rast(FI_Fill_Dark),
  51.                End,
  52.  
  53.                Child, HGroup, FA_Group_HSpacing, 0,
  54.                   Child, rast(FI_HalfShadow),
  55.                   Child, rast(FI_HalfShadow_Shadow),
  56.                   Child, rast(FI_HalfShadow_HalfDark),
  57.                   Child, rast(FI_HalfShadow_Dark),
  58.                End,
  59.  
  60.                Child, HGroup, FA_Group_HSpacing, 0,
  61.                   Child, rast(FI_Shadow),
  62.                   Child, rast(FI_Shadow_HalfDark),
  63.                   Child, rast(FI_Shadow_Dark),
  64.                End,
  65.  
  66.                Child, HGroup, FA_Group_HSpacing, 0,
  67.                   Child, rast(FI_HalfDark),
  68.                   Child, rast(FI_HalfDark_Dark),
  69.                End,
  70.  
  71.                Child, HGroup, FA_Group_HSpacing, 0,
  72.                   Child, rast(FI_Dark),
  73.                End,
  74.             End,
  75.          End,
  76.       End
  77.  
  78.       IF app
  79.          F_DoA(win,FM_Notify,[FA_Window_CloseRequest,TRUE,app,FM_Application_Shutdown,0])
  80.          F_DoA(app,FM_Application_Run,NIL)
  81.          F_DisposeObj(app)
  82.       ENDIF
  83.  
  84.       CloseLibrary(feelinbase)
  85.    ELSE
  86.       WriteF('Unable to open feelin.library\n')
  87.    ENDIF
  88. ENDPROC
  89.  
  90. PROC rast(rast)
  91.    RETURN   AreaObject,
  92.             FA_ChainToCycle,  FALSE,
  93.             FA_Back,          rast,
  94.             FA_MinWidth,      4,
  95.             FA_MinHeight,     4,
  96.             End
  97. ENDPROC
  98.